(occur-mode-goto-occurrence): Delete excess close paren.

diff --git a/lisp/replace.el b/lisp/replace.el
index a70e29299f8089ec401dacae48dc32acea428037..24e77960ccfefd0f9994428173dd11ef7cc5269d 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -277,7 +277,7 @@ Or click \\<occur-mode-map>\\[occur-mode-mouse-goto] on an occurrence line.
   (interactive)
   (let ((pos (occur-mode-find-occurrence)))
     (pop-to-buffer occur-buffer)
-    (goto-char (marker-position pos)))))
+    (goto-char (marker-position pos))))
 \f
 (defvar list-matching-lines-default-context-lines 0
   "*Default number of context lines to include around a `list-matching-lines'